package Waya::App::GameInfo;

use warnings;
use strict;

our $VERSION = '0.1';

use base 'Waya::App::FileIterator';


sub GETOPT {
    map { "$_=s" }
        qw/GM FF SZ PT AP PD KM HA CA ST PW PB RU GN SY DT
           TM BR WR US SO GC EV PC RE OT/
}


sub process_game {
    my $self = shift;
    $self->apply_game_info_option($self->opt_keys);
}


1;
